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OTROS LENGUAJES 


BASIC 


IF-THEN-ELSE 


LGUNAS versiones del 
BASIC permiten la uti- 
lización de una sen- 
tencia de bifurcación 
condicional más po- 
tente: IF-THEN-ELSE, 
que tiene el siguiente 
formato. 


IE <condición> THEN <lista de Insiruc- 
ciones 1> 
ELSE <lista de instrucciones 2> 


Si se verifica la condición indicada en- 
tre IF y THEN, se ejecutará la lista de ins- 
trucciones 1 y, en caso contrario, la lista 
de instrucciones 2. 

En el programa 1 podemos ver un ejem- 
plo: 


REM ARAHAL NA RAR 
20 REM * NUMEROS 
REM REAHARER RARA 


INPUT "DIME UN NUMERO "¿N 
$0 PRINT :¿PRINT 

70 IF N=0 THEN PRINT "CERO" :END 
80 IF N>0 THEN PRINT "POSITIVO" 
ELSE PRINT "NEGATIVO" 


Si el número tecleado es cero, se verifi- 
cará la condición de la línea 70 y, como 
hay un END, al final, la línea 80 no se eje- 
cutará. Sin embargo, si tecleamos cual- 
quier otro número, la ejecución pasará a 
la línea 80, donde, si el número tecleado 


es mayor que cero, se verificará la con- 
dición y, por tanto, se imprimirá en pan- 
talla POSITIVO. Si, por el contrario, no se 
cumple la condición, es decir, el número 
tecleado es menor que cero, entonces 
se imprimirá en pantalla NEGATIVO. 

Las máquinas en estudio, excepto el 
COMMODORE y el SPECTRUM, disponen 
de la instrucción ELSE. 


3) Condiciones compuestas. 
= Operadores lógicos 


Hasta ahora las condiciones vistas en 
la instrucción IF-THEN eran condiciones 
simples; sin embargo, podemos utilizar 
condiciones tan complejas como desee- 
mos haciendo uso de los operadores ló- 
gicos, también llamados operadores 
booleanos por estar basadas en el álge- 
bra de Boole. 

Los operadores lógicos son los siguien- 
tes: 


NOT 
AND 
OR 
XOR 
EQU 
IMP 


Una condición compuesta es aquélla 
formada por dos o más condiciones sim- 
ples ligadas entre sí por un operador ló- 
gico (NOT es el único que cumple esta 
norma general). 

Por tanto, podríamos formar condicio- 
nes compuestas tan complejas como, por 
ejemplo, ésta: 


2 < 3 AND NOT 3 + 2= 6 OR 4/2-1>=-3 


Realmente es prácticamente imposi- 
ble que lleguemos a encontrar alguna 
vez una condición tan extraña. Sin em- 
bargo, es conveniente saber cómo ana- 
liza el ordenador una condición de este 
tipo para saber si es verdadera o falsa. 
Ya vimos que los operadores aritméticos 
seguían unas prioridades en el orden de 
las operaciones; pues bien, en la tabla 
de la figura 1 podemos ver la prioridad 
de todos los operadores (aritméticos, de 
relación y lógicos). 


NOT 
¡AND 

Lógicos OR 
XQR/EQU/IMP 


¡A | Prioridades de los operadores. 


Si analizamos la condición puesta de 
ejemplo siguiendo esta tabla podemos 
comprobar que es verdadera. 

A continuación vamos a analizar el 
efecto que produce cada uno de los 
operadores lógicos: 


NOT 


Es el único que no se emplea para co- 
nectar dos condiciones simples, sino que 
siempre va asociado a una única condi- 
ción simple. Su efecto es invertir el resul- 
tado de la condición a la que afecta de 
modo que si la condición es verdadera, 
NOT la transforma en falsa y viceversa. 


Condición-Simple-1 


n<mn< 


Cond.-Simple-1 


d 


nN<mn< 


Condición-Simple-2 


Por ejemplo: 
NOT A=B 


será cierto si A es distinto de B, mientras 
que si A y B son iguales, la condición será 
falsa. De aquí se deduce que la condi- 
ción compuesta NOT A=B es equivalente 
a la condición simple A<>B. 


AND 


Conecta dos o más condiciones sim- 
ples. La condición compuesta resultante 
sólo es cierta si lo son cada una de las 
condiciones simples que la forman. 


OR 


Conecta dos o más condiciones sim- 
ples. Para que la condición compuesta 
resultante sea cierta basta con que lo 
sea al menos una de las condiciones sen- 
cillas que la integran. 


XOR 


Conecta dos o más condiciones senci- 
llas. La condición global será cierta 
cuando lo sea una sola de las condicio- 
nes elementales. 


EQU 


Conecta dos o más condiciones senci- 
llas. La condición compuesta será cierta 
cuando las condiciones simples que la 
integran sean o bien todas ciertas o bien 
todas falsas. 


IMP 


Conecta dos o más condiciones senci- 
llas. La condición resultante será cierta 
siempre que la primera condición ele- 
mental sea falsa. 

En la figura 2 podemos ver las tablas de 
verdad de los cinco últimos operadores 
lógicos, que pueden servir para aclarar 
el efecto de cada uno de ellos. 


Cond.-Simple-1 AND Cond.-Simple-2 
V 
F 
F 
F 


Cond.-Sim.-1 OR Cond.-Sim.-2 


V 
v 
v 
E 


Cond.-Simple-2 
V 
Cond.-Simple-1 
V 
Cond.-Simple-1 


Tablas de verdad de los operadores lógicos. 
V = verdadero. F = falso. 


A continuación vamos a desarrollar al- 
gunos programas como ejemplos de 
aplicación de las condiciones compues- 
tas. 

El programa 2 sirve para determinar si 
un alumno ha aprobado o no una asigna- 
tura, dependiendo de las notas que 
haya obtenido en tres exámenes parcia- 
les. La condición para aprobar la asigna- 
tura es haber aprobado cada uno de los 
tres exámenes independientemente, 
con una nota mayor o igual que 5. 


REM 0 

REM x* EXAMENES  x 

REM AR 

cus 

INPUT "TECLEE LAS NOTAS DE LOS TRES 
PARCIALES "¡N1,7N2,N3 

CLS 

PRINT "EXAMEN" ¡TAB(20) ; "NOTA" 

PRINT 

PRINT "PRIMER PARCIAL" ¡TABC20) ¿N1 
PRINT "SEGUNDO PARCIAL"; ¡TAB(20) ¡N2 


PRINT "TERCER PARCIAL" ¿TABC20>; Na 
PRINT 


PRINT "CALIFICACION FINAL" 
PRINT 


IF N1>=5 AND N2>=S AND Noia THEN 


¿PRINT 


PRINT "APROBADO" 
PRINT "SUSPENSO" 


¿END 


Para que la condición compuesta de la 
línea 150 se verifique es necesario que se 
verifiquen cada una de las tres condicio- 
nes simples que la forman; por tanto, te- 
nemos que utilizar el operador AND. En 
caso de no cumplirse alguna de las con- 


Cond.-Simple-2 


Cond.-Sim.-1 XOR Cond.-Sim.-2 
F 


Cond.-Sim.-1 IMP Cond.-Sim.-2 


F 
V 
V 


diciones sencillas, la ejecución del pro- 
grama pasará a la línea 160, donde se 
imprimirá en pantalla SUSPENSO. 

Por otra parte, en este programa se ha 
cuidado especialmente la presentación 
en pantalla, ya que para que un progra- 
ma sea bueno no basta con que funcio- 
ne correctamente, sino que es conve- 
niente que además la: presentación en 
pantalla sea atractiva y ordenada. En la 
figura 3 podemos ver el resultado de una 
posible ejecución. 


Primer parcial 
Segundo parcial 
Tercer parcial 


Calificación final 
Aprobado 
OK 


Presentación en pantalla del programa 2 
(EXAMENES). 


Por otra parte, podemos observar que 
el programa funcionaría exactamente 
igual si cambiáramos la condición com- 
puesta por su contraria. 

Para comprobar esto sólo tenemos que 
cambiar la línea 150 por la siguiente: 


150 IF N1<5 OR N2<5 OR N3<5 
THEN PRINT “SUSPENSO”:END 


y la línea 160 por: 
160 PRINT “APROBADO” 


También podríamos sustituir ambas lí- 
neas por una única linea de la forma si- 
guiente: 


150 IF NI<5 OR N2<5 OR N3<5 THEN 
PRINT “SUSPENSO” ELSE PRINT “APROBADO” 


El programa 3 es un ejemplo del uso de 
condiciones compuestas con datos alfa- 
numéricos. Supondremos que el progra- 
ma funciona el día de San Joaquín y San- 
ta Ana y su objetivo es felicitar a las per- 
sonas que sea su santo. 


REM HARI ARMAR 
20 REM * FELICITACIÓN * 
30 REM HHAHARARA AR 
40 CLS ( 

50 INPUT "¿COMO TE LLAMAS? "¿N$ 

60 PRINT :PRINT 

70 1F N$="JOAQUIN" OR Né="ANA" THEN 
PRINT "FELICIDADES "¿N$;", YA SE 
QUE HOY ES TU SANTO" +END 

PRINT "HOLA "¿N$;" ¿COMO ESTAS?" 


Hay que tener,en cuenta que el nom- 
bre hay que teclearlo en mayúsculas, ya 
que la cadena «Joaquín» no es igual que 
«JOAQUIN» ni la cadena «Ana» es igual a 
«ANA». 

Por otra parte, y al igual que en el pro- 
grama 2, en este programa también po- 
dríamos poner la condición compuesta 
contraria. Sólo tendríamos que cambiar 
las líneas 70 y 80 por las siguientes: 


70 IF NS$<>"“JOAQUIN” AND N$<>"ANA” 
THEN PRINT “HOLA”; N$; “¿COMO ESTAS": 
END 

80 PRINT “FELICIDADES”; NS, “ , YA SE QUE 
HOY ES TU SANTO” 


o por una única línea 70 utilizando la ins- 
trucción ELSE. 

Finalmente, el programa 4 utiliza varias 
condiciones compuestas. El ordenador, 
tras pedir una nota (numérica), imprime 
la calificación correspondiente aten- 
diendo al siguiente criterio: 


NOTA < 3 ....... SUSPENSO 

5 <= NOTA < 7 o... APROBADO 

7 <= NOTA <9 o... NOTABLE 
NOTA >=9 ....... SOBRESALIENTE 


Además, si tecleamos una nota menor 
que cero o mayor que 10, el ordenador 
nos advertirá que dicha nota no es vali- 
da. 


REM HAHAHA R RARA 

20 REM * CALIFICACIONES xXx 

30 REM XKAEHAAARALERER ARA 

40 CLS > 

S0 INPUT "TECLEE LA NOTA "¿N 

60 PRINT ¿PRINT 

70 IF N<O OR N>10 THEN PRINT "ESA NOTA 
NO ES VALIDA" END 

80 IF N<S THEN PRINT "SUSPENSO" 

90 IF N>=5 AND N<7 THEN PRINT "APROBADO" 

100 IF N>=7 AND N<2 THEN PRINT "NOTABLE" 

110 IF N>=?2 THEN PRINT "SOBRESALIENTE" 


Por último, hay que señalar que todos 
los ordenadores no disponen de todos 
los operadores lógicos mencionados. Los 
más comunes son NOT, AND y OR. En cual- 
quier caso, en la tabla de la figura 4 po- 
demos ver operadores disponibles en 
cada una de las máquinas en estudio. 


A | Operadores disponibles en los distintos 
ordenadores. 


(COMMODORE 64) 


am Direcciona- 
miento 
indexado 


UANDO el dato se en- 
cuentra sumando al 
valor de la posición 
de memoria indica- 
da el contenido del 
registro X o del regis- 
tro Y, estamos utili- 
zando el “direcciona- 
miento indexado” o direccionamiento 
por índices. 

Supongamos que hemos cargado el re- 
gistro X con el número $10 mediante la 
instrucción ya vista LDX4$10. Si ahora in- 
troducimos el comando LDA $C000,X, el 
microprocesador interpretará que se 
debe cargar al ACU el valor que se en- 
cuentre en la posición de memoria 
$C000 + $10 = $C010, 

De la misma manera podríamos haber 
cargado el registro Y con un número 
cualquiera, y después introducir el co- 
mando LDA $C000, Y. 

Como puede observarse, se trata de un 
comando de tres bytes, uno para el có- 
digo del comando LDA y dos para la po- 
sición de memoria especificada. 

Este tipo de direccionamiento es espe- 
cialmente útil en la programación de bu- 
cles. Adjudicando diferentes valores de 
X (incrementando o decreciendo el va- 
lor contenido en él), se pueden ir obte- 
niendo al ser cargados en el ACU los va- 
lores que se encuentran en posiciones 
de memoria consecutivas como ya vere- 
mos. 

5. También dentro de lo que hemos 
llamado direccionamiento “Zero page” 
existe el “direccionamiento indexado”. 
Un ejemplo sería: 


LDA $ 2B,X Comando de 2 Bytes 


MAQUINA 6502 


MODOS DE DIRECCIONAMIENTO 


En este caso sólo se ufiliza el registro X 
como índice, de tal forma que el coman- 
do 


LDA $2B,Y 


no tiene sentido alguno. 

El correspondiente comando BASIC 
para el direccionamiento indexado se- 
ra: 


A = PEEK ($C000 + X) 


ó. Veamos ahora un modo de direc- 
cionamiento un poco más complejo 
pero que permite una programación más 
potente. Es el “direccionamiento indirec- 
to por índices”. 

— Por el registro Y: Ahora es el momen- 
to de explicar un poco eso de “Página 
Cero" y qué es lo que la hace tan impor- 
tante. 

Como dijimos, se trata de los 256 pri- 
meros bytes del área direccionable del 
procesador. 

Allí se encuentran la mayor parte de los 
datos o variables necesarios para el 
correcto tuncionamiento del ordenador, 
de tal manera que algunos registros de- 
ben tener un número concreto, mientras 
que otros pueden ser modificados de 
una manera útil. 

¿Por qué se almacenan aquí? Sencilla- 
mente porque pueden ser direccionados 
con un solo byte. 

Además, muchos de estos datos se en- 
cuentran en forma de “vectores, apunta- 
dores o pointers”. 


Un vector se compone de dos posicio- 
nes contiguas de memoria en la página 
cero, cuyos contenidos apuntan a otra 
posición de memoria. 


Veámoslo con un ejemplo: el área BASIC 
comienza en la posición de memoria 
2049=5$0801. Este valor debe ser “sabido” 
por el ordenador; de lo contrario, no po- 
dría colocar nuestros programas. 


Pues bien, en las posiciones de memo- 
ria 43/44 se encuentran los valores 1 y 8, 
respectivamente. 


PEEK (43) = 1 = $01 
PEEK (44) = 8 = $08 


Esto es realmente el byte bajo y el byte 
alto de la posición de memoria $ 08 0] = 
2049. 

Para hacer el cálculo en el sistema de- 
cimal basta con hacer: 

Posición de memoria = byte bajo + 256 
x byte alto 


2049 = 1 +256 x 8 


Si cambiamos alguno o los dos valores 
de las posiciones 43/44, habremos cam- 
biado el área BASIC disponible. 

Así, la página cero dispone de vecto- 
res que le indican al microprocesador 
cómo se encuentra estructurada el área 
direccionable del ordenador. 

Ahora podemos continuar con el direc- 
cionamiento indirecto mediante el regis- 
tro Y. 

Supongamos que la dirección de me- 
moria 172 = SAC contiene un 60 = $3C y 
la 173 = $AD un 3 = $03. 

Estas dos posiciones forman un apunta- 
dor hacia la posición 828 = $033C, que 
es donde empieza el buffer o memoria in- 
termedia del casete. 

La instrucción correspondiente al di- 
reccionamiento indirecto sería: 


LDA ($AC),Y 


y quiere decir “carga al acumulador lo 
que haya en la posición” $033C+Y, sien- 
do $03 el número que hay en $AC y $3C 
el número que hay en SAD, 

La correspondiente función BASIC sería: 


A = PEEK (PEEK(SAC) + 256 * PEEK(SAD) + Y) 


Alguno puede preguntarse: muy bien, 
pero ¿por qué no nos referimos directa- 
mente a la posición de memoria en cues- 
tión? 


LDA $000 direccionamiento absoluto 
o bien 

LDA $XxxXX Y direccionamiento indexa- 
do en Y. 


Si uno se fija bien, puede observar que 
con el direccionamiento indirecto con el 
registro Y no se necesita saber dónde se 
encuentra tal posición de memoria, tan 
sólo que ocupa el lugar Ne “Y” a partir de 


donde apunte el vector, y éste es inamo- 
vible. 

Más claro: el vector que apunta. al área 
del buffer del casete siempre está en las 
posiciones 172/173 y podemos leerlo o 
escribirlo (modificarlo) ahí. Sin embargo, 
dicha área puede ser trasladada a otra 
parte de la memoria, que no sea su con- 
figuración normal desde la posición 
828-1023. 


Ahora para referirnos al dato Ne “Y” de 
esa “tabla” o área, mediante el direccio- 
namiento absoluto, o el indexado nece- 
sitamos conocer dónde ha sido traslada- 
do el buffer del cassette, mientras que 
utilizando el direccionamiento indirecto, 
como el vector no puede ser modificado 
a otras posiciones que la 172/173, basta- 
ría con escribir 


LDA (SAC), Y 


El microprocesador se encargará de 
saber dónde está ahora esa zona reser- 
vada al buffer del casete y cargar en el 
ACU el dato Ne “Y” dentro de ella. 

— Por el registro X: también aquí dos 
direcciones contiguas de la página cero 
forman un apuntador a la dirección bus- 
cada. 

La diferencia con el caso anterior es 
que en este caso suma primero el conte- 
nido del registro X a la posición de la pá- 
gina cero direccionada, formándose un 
nuevo apuntador. 

La instrucción correspondiente a este 
direccionamiento es: 


LDA ($BB,X) 


y quiere decir: “Sitúate en la posición de 
memoria $5$BB+X y carga al ACU el conte- 
nido de la posición de memoria a la que 
apunta el vector $BB + X/$BC + X de la 
página cero” 

SUPpongamos que hemos cargado elre- 
gistro X con el número $00 mediante la 
instrucción LDX 1 $00 y que a continua- 
ción introducimos el comando LDA 
($BB,X). 

En este caso, el apuntador formado 
será $BB + $00 / $BC + $00, o sea, 
$BB/5BC, que en decimal equivale a 
187/188. 

Este vector apunta siempre a la zona 
de memoria donde encontraremos el 
nombre del programa cargado en me- 
moría. 


M0 MAQUINA 6502 


En “condiciones normales”, el valor en 
$BB es $FO y el valor en $BC es $9F. Por 
tanto, el vector apunta a la dirección 
$9FFO o, lo que es lo mismo, 240 + 256 * 
159 = 40944 en decimal. 

Pues bien, con el comando LDA ($BB,X), 
si en X hay un $00, se cargará en el ACU 
el valor de la posición $9FFO = 40944 y 
corresponderá a la primera letra del 
nombre del fichero de 16 caracteres, 

_ La instrucción equivalente en BASIC se- 
ría: 


A = PEEK (PEEK ($BB + X) + 256 * PEEK ($BC 
+ X)) 


A continuación se expone una lista re- 
sumen de los comandos de carga: 


-Modo de direccionamiento 


Inmediato 

Absoluto 

Zeropage 

Absoluto indexado por X 
Absoluto indexado por Y 
Zeropage indexado por X 
Zeropage indexado por Y 
Indirecto indexado por Y 
Indirecto indexado por X 


Existen otros modos de direcciona- 
miento que no tienen sentido dentro de 
los comandos de carga y que serán tra- 
tados más adelante. 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


; IN . Cambia el color de la tinta. 
Programa: On . Realiza la función over. 
Graficator C x,y,x . Nos dibuja un círculo: 


> 


L primer programa de 
este tomo nos permi- 
tirá realizar gráficos 
más de prisa y 
ahorrando más me- 
moria que en BASIC. 
Esto es gracias a una SRArICATOR 
rutina en código má- 
quina que nos permitirá tener todos los 
comandos gráficos del SPECTRUM y algu- 
nos mas. Estos son: 


Dorm comm ImMZC 
DAMA MIDA DD Z 


DQ1N0  ZFD 10M 
TDMA 


> 


| GRAFICA TOR 


GRAF ICATOR 


DE UTILIZAR ESTE PRO- 
2 LA SIGUIENTE: 


P x.y . Coloca un punto en la panta- 
lla. 

MxXY . Dibuja una línea. 

Uy . Dibuja una línea hacia arriba. 

D y . Dibuja una línea hacia abajo. 

Rx . Dibuja una línea hacia la de- 
recha. 

Lx . Dibuja una línea hacia la iz- 


quierda. [A Instrucciones del Graficator. 


ñ PROGRAMAS 


Todos estos comandos han de ir des- 
pués de la instrucción: 


RANDOMIZE USR 64500 


en una línea REM. 


« Siglo Cultural 


Ss? 1 


GRAF ICATOR 


AHORA. VEAMOS UN EJEMPLO. 
SI POR EJEMPLO TENEMOS LA LINER: 


550 _ FANDOMIZE USR_ 54500: REM PO,O 
150 RZES pS L25S5 Y 


NOS APARECERIA EN PANTALLA: 


Despedida del programa. 


El programa nos muestra 
un ejemplo de su funcionamiento. 


«| Otro ejemplo de su funcionamiento. 


GRAFICATOR 


AHORA VEAMOS UN EJEMPLO. 
FAT TENEMOS: £ 


La utilización del programa no reviste 
ninguna dificultad, ya que el programa 
cargador no sólo introduce el código 
máquina en memoria, sino que nos expli- 
ca cómo utilizarlo, nos muestra algunos 
ejemplos y nos permite grabarlo en for- 
ma de BYTES en la cinta. 


10>PRINT *+0;AT 1,O;FLASH 1;PAP UB 8000: LET Y=1: LET X=10: LET 
ER 7;INK 1;INVERSE 1;"CARGANDO D AgS"- "=== “US LET €=3% "G0!8 
ATAS.ESPERA UN MOMENTO" UB 8000 

20 PRINT AT 12,8; INK 5;"CHECK 50 LET A$=" UN PROGRAMA ESCRIT 
SUM = 0": GO SUB 9500 O TOTALMENTE EN C/M PARA QUE TU 

30 BEEP .5,0: BEEP .5,5: BEEP S DIBUJOS SE REALIZEN A MAS VELO 
.5,8 CIDAD Y AHO- RRANDO MEMORIA. ": L 

40 CLS :-LET Y=0: LET X=11: LE ET X=0: LET Y=3: LET C=4: GO SUB 


T A$="GRAFICATOR": LET C=6: GO S 8000 


60 LET A$=" EL PROGRAMA ADMITE 
COMANDOS QUEREALIZAN LA MISMA 
FUNCION QUELOS PROPIOS DEL SPE 

CTRUM Y ALGU-NOS MAS. ": LET X=0: 
LET Y=8: GO SUB 8000 

70 LET A$=" ESTAS RUTINAS NO 5 
ON RELOCALIZABLES DEBIDO A SU EX 
TENSION PEROESTAN LO SUFICIENTE 
METE ALTAS COMO PARA QUE NO MÓLE 
STEN A TU PROGRAMA EN BASIC.": L 
ET X=0: LET Y=13: GO SUB 8000 

90 GO SUB 7000 

100 INK 6: CLS : LET A$="GRAFIC 
ATOR": LET X=11: LET Y=0: LET C= 
4: GO SUB 8000: LET A$="--—------ 
=---": LET X=10: LET Y=1: LET C= 
5: GO SUB 8000 

110 LET A$=" LA FORMA DE UTILI 
ZAR ESTE +PRO-GRAMA ES LA SIGUIEN 
TE:": LET X=0: LET Y=3: LET C=6: 
GO SUB 8000 
120 LET A$="1- EL PROGRAMA SE A 
RRANCA CON RANDOMIZE USR 84 
500.": LET X=1: LET Y=7: LET C=7 
: GO SUB 8000 
130 LET A$="2- DESPUES IBA UNA 


SENTENCIA REM, Y A CONTIN 
UACION DE ESTA LOS COMANOS 
- ORDENES QUE UTILIZES.": 


LET X=1: LET'Y=10: GO SUB 8000 
140 LET A$="3- TODO ESTO IRA EN 
UN NUMERO DE LINEA CUALQUI 

ERA. ": LET X=1: LET Y=15: GO SUB 
8000: GO SUB 7000 
200 CLS : LET A$="GRAFICATOR": 

LET: Y=0: LET X=11: LET C=6: GO 5 

UB 8000: LET A$="----=-------- ys 

LET X=10: LET Y=1: LET C=4: GO S 

UB 8000 
210 LET A$=" LOS COMANDOS POSIB 

LES SON: “: LET X=2: LET Y=3: LET 
C=7: GO SUB 8000 


220 LET A$="Px,y --- PLOT EN LA 
POSICION X,y. IGUAL 
QUE, EN EL BASIC. ": L 


ET X=2: LET Y=5: LET C=6: GO SUB 
8000 


230 LET A$="Mx,y —-- TRAZA UNA 
LINEA HAS TA LA POSI 
CION x,y RELATIVA A 
L ULTIMO PLOT. COMO 

DRAW EN BASIC.": L 
ET X=2: LET Y=9: GO SUB 8000 

240 LET A$="0n ----- OVER n. n 
PUEDE TE- NER CUALQU 
IER VALOR ENTRE O Y 
255. SI n ES O SE HA 
CE OVER O Y CUALQUIE 
R OTRO VA LOR OVER 1 
.COMO EN BASIC. ": L 


ET X=2: LET Y=15: GO SUB 8000 
250 GO SUB 7000: GO SUB 7500 


300 LET A$="In ----- INK n. DON 
DE n SERA UN NUMERO 
ENTRE O Y 7. IGUAL Q 
UE EN BA- SIC.": LET 


X=2: LET Y=5: GO SUB 8000 
310 LET A$="Cx,y,r - CIRCLE x,y 


,r. DON- DE x E y 

SON LAS COORDENADA 
S DEL CEN TRO DEL CI 
RCULO Y r EL RADIO D 
EL MISMO. COMO EN BA 


SIC.": LET X=2: LET Y=10: GO SUB 
8000 
320 GO SUB 7000: GO SUB 7500 


400 LET A$="Un ----- UP n. DIBU 
JA UNA LI NEA DE LO 
NGITUD n HACIA ARRI 


BA.": LET X=2: LET Y=5: GO SUB 8 
000 


410 LET A$="Dn ----- DOWN n. DI 
BUJA UNA LINEA DE L 
ONGITUD n HACIA ABAJ 
O0.": LET X=2: LET Y=9: GO SUB +80 
00 : 

420 LET A$="Rn ----- RIGHT n.DI 
BUJA UNA LINEA HACI 
A LA DERE CHA DE LON 


GITUD n.": LET X=2: LET Y=13: GO 
SUB 8000 


430 LET A$="Ln ----- LEFT n. DI 
BUJA UNA LINEA DE L 
ONGITUD n HACIA LA 1 


ZQUIERDA. “: LET X=2: LET Y=17: G 
O SUB 8000 

440 LET A$="LOS ESPACIOS EN BLA 
NCO NO CAUSANNINGUN EFECTO. ": LE 
T X=0: LET Y=20: LET C=5: GO SUB 
8000: GO SUB 7000 

500 CLS : LET A$="GRAFICATOR": 
LET C=7: LET X=11: LET Y=0: G0 S 
UB 8000: LET A$="----=--=-=-- ms 
LET C=3: LET X=10: LET Y=1: GO $ 
UB 8000 

510 LET A$="AHORA VEAMOS UN EJE 
MPLO.": LET X=4: LET Y=3: LET C= 
6: GO SUB 8000 

520 LET A$="SI POR EJEMPLO TENE 
MOS LA LINEA: ": LET X=0: LET C=4 
: LET Y=5: GO SUB 8000 

530 LET A$="550 RANDOMIZE USR 6 
4500:REM PO,O USO R255 D50 L255" 
: LET X=0: LET Y=7: LET C=7: GO 
SUB 8000 

540 LET A$="NOS APARECERIA EN P 
ANTALLA: ": LET X=3: LET Y=10: LE 
T C=6: GO SUB 8000 

550 RANDOMIZE USR 64500: REM PO 
,0 U50 R255 D50 L255 

560 GO SUB 7000: GO SUB 7500 
600 LET A$="Y SI TENEMOS :": LE 
T X=9: LET Y=5: GO SUB 8000 

610 LET A$="650 RANDOMIZE USR 6 
4500:REM PO,0 U5O R255 D50 L255 
17 C27,25,25 16 C52,25,25 15 C77 
,25,25 14 C102,25,25 13 C127,25, 
25 12 C152,25,25 11 C177,25,25 1 
7 C202,:25,25 16 C227,25,25": LET 
X=0: LET Y=7: LET C=7: GO SUB 8 
000 

650 RANDOMIZE USR 64500: REM 

PO,0 U5O R255 D50 L255 17 C27, 

25,25 16: 052,25,25 15:077;25, 25 
14 C102,25,25 I3 C127,25,25 12 C 
152,25,25 11 C177,25,25 17 C202, 
25,05: 16:0227,25,28 
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680 GO SUB 7000: GO SUB 7500 
700 CL8 : PRINT AT 10,6; INK 6; 
INVERSE 1;" GRABO EL PROGRAMA? 
710 IF INKEYS$="N" OR INKEY$="n" 
THEN BEEP .1,35: GO TO 800 

720 IF INKEYS$<>"S" AND INKEY$<> 
"s" THEN GO TO 710 

730 BEEP .01,20: PRINT AT 21,11 
5 INK 5;"PULSA ENTER": IF INKEYS$ 
<>CHR$ 13 THEN GO TO 730 

740 SAVE "GRAFICATOR” LINE 1 
800 FOR I=1 TO 100: NEXT 1: CLS 
: PRINT AT 10,3; INK 4; INVERSE 
1;" GRABO EL CODIGO MAQUINA? ": 
810 IF INKEY$="N" OR INKEY$="n" 
THEN BEEP .1,35: GO TO 9600 
820 IF INKEYS$<>"S" AND INKEY$<> 
"s'" THEN GO TO 810 

830 BEEP .1,20: PRINT AT 21,11; 
INK 7;"PULSA ENTER": IF INKEY$< 
>CHR$ 13 THEN GO TO 830 

840 SAVE "GRAF-CODE “CODE 64500 
,500: GO TO 9600 
6999 STOP 

7000 FOR I=0 TO 1 STEP 0: FOR J= 
O TO 7: PRINT H0;AT 1,8; INK J;" 
PULSA UNA TECLA”: BEEP .01,J+20; 
IF INKEY$<>"" THEN LET J=8: LE 
T 1=2 

7010 NEXT J: NEXT I: RETURN 
7500 FOR I=5 TO 21: PRINT AT 1,0 


” 
, 


“; NEXT 1: PRINT *0;AT 1,8;" 
": RETURN 
8000 PRINT AT Y,X;: FOR I=1 TO L 
EN A$: PRINT INK C;A$(1);: BEEP 
.01,35: NEXT 1: BEEP .05,-10: P 
AUSE 20: RETURN 
9000 DATA 217,229,217,42,93,92,3 
5,126,254,234,32,55,35, 126,254, 3 
2,40,250,254,13,40,47,254,77,202 
,138,252, 254,80, 202, 107 
9010 DATA 252,254,85,202, 118,253 
,254,68,202,144,253,254,78,202, 1 
71,253,254,82,202, 198,253, 254,67 
,202,221,252, 254,73, 40,30,254 
9020 DATA 79,40,8,24,0,207,9,217 
,225,217,201,35,126,254, 49, 40,6, 
253,54,87,0,24,183,253,54,87,3,2 
4,177,35,126 
9030 DATA 205,210,252,56,225,237 
,91,141,92,214, 48,203, 131,203, 13 
9,203,147,131,50,141,92,50, 143,9 
2,24,149,205,15,253,126,254 
9040 DATA 44,32,196,58, 4,91,95,2 
13,205, 15,253,58, 4,91, 209,87, 235 
,213,205,49,253,225, 43,195, 0,252 
,35,17,0,0, 128 : 
9050 DATA 254, 45,40,5,22,1, 43,24 
,2,22,255,213,205,15,253,209, 126 
,254,44,32,147,58,4,91,79,35,126 
,254, 45,40,5 
9080 DATA 30,1,43,24,2,30,255,21 
3,205,15,253,58,4,91,209,71,254, 
0,32,1,90,121,254,0,32,1,83,229, 
205,186,36 
9070 DATA 225,43,195,0,252,254, 5 
8,48,5,254,48,56,1,201,55,201,20 


5,15,253,254, 44, 194,55,252, 58, 4, 
91,229,205, 40, 45 
9080 DATA 225,205,15,253,254, 44, 
194,55,252,58,4,91,229,205,40, 45 
,225,205,15,253,58,4,91,229,205, 
40, 45, 205, 45, 35,225 
9090 DATA 43,195,0,252,17,0,0,23 
7,83,4,91,35,126,205,210,252,216 
,214, 48, 229, 42, 4,91,203,37,93,20 
3,37,203,37,133 
9100 DATA 131,50,4,91,225, 24,229 
,34,125,92,62,175,148,103,229,23 
0,7,198,64,79,124,31,31,31,230,3 
1,71,230,24,87,124 
9110 DATA 230,192,95,97,125,31,3 
1,31,230,31,111,123,128,146,95,2 
2,0,229,213,225,41, 41,41, 41, 41,2 
09,25,209,123,230,7 : 
9120 DATA 71,62,8,144,71,62,1,13 
5,16,253,31,182,119,201,205,15,2 
53,58, 4,91,71,229,42,125,92,36,2 
29,197,205, 49, 253 
9130 DATA 193,225,16,246,225,43, 
195,0,252,205,15,253,58,4,91,71, 
229, 42,125,92,37,229,197,205, 49, 
253, 193,225,5,32,245 
$140 DATA 225, 43,195,0,252,205,1 
5,253,58,4,91,71,229,42,125,92,4 
5,229,197,205, 49, 253, 193,225, 5,3 
2,245,225, 43,195,0 
9150 DATA 252,205,15,253,58,4,91 
,71,229,42,125,92,44,229,197,205 
, 419,253, 193,225,16, 246,225, 43,19 
5,0,252,0,0,0,0 
9500 LET CHECK=0: FOR 1=64500 TO 
64995: READ A: POKE 1,A: LET CH 
ECK=CHECK+A: PRINT AT 12,20; INK 
5;CHECK: NEXT I 
9510 IF CHECK<>60804 THEN CLS : 
PRINT AT 9,7; INVERSE 1; INK 6; 
* ERROR EN DATAS ";AT 11,5;" INT 
ENTALO DE NUEVO '": GO TO 9999 
9520 RETURN 
9600 REM DESPEDIDA 
9610 CLS : RANDOMIZE USR 64500: 
REM 13 PO,O MO, 175 M255,0 MO, -17 
5 M-255,0 P3,3 MO, 169 M249,0 MO, 
-169 M-249,0 P6,6 MO, 163 M243,0 
MO, -163 M-243,0 I6 P9,9 MO0,157 M 
237,0 MO,-157 M-237,0 P12,12 MO, 
151 M231,0:40,-151 M-231,0 P15,15 
MO, 145 M225,0 MO,-145 M-225,0 
9620 PAPER 5: RANDOMIZE USR 6450 
O; REM IO P20,107 MO, 48 M31,0 MO 
,-48 P20,123 M31,0 P67,91 MO,57 
M25,0 MO,-9 M9,0 MO,-40 M-9,0 MO 
,79 M-25,0 P116,76 MO, 55 
9630 RANDOMIZE USR 64500: REM Pi 
31,59 MO0,65 M33,0 MO,-65 M-33,0 
P179,43 M33,0 MO, 40 M-33,0 MO, 32 
M33,0 
9640 PAPER O: INK 7: PRINT AT 17 
+3; Fco. Morales. "¡AT 18,3;"c/ 
Corazon de maria, 13";AT 19,3;" 
28002 MADRID": PAUSE O 


'O Programa: Diario 


El programa que proponemos a conti- 
nuación nos permitirá tener nuestro pro- 
pio diario electrónico con todas las faci- 
lidades que eso conlleva. Gracias a que 
el diario es electrónico, podremos modi- 
ficar en cualquier momento cualquier 
parte del texto, visualizarlo e imprimirlo 
en dos tamaños distintos. 


INTRODUCIR TEXTO 
o AAA TEXTO 
E A TEXTO 
LD > 


des 
2 
y 
4 - 


¿QUE DESEAS (1-4)? 


LA Pantalla de menú del Programa Diario. 


El programa está organizado como si 
de un editor de textos se tratase. La úni- 
ca diferencia es que es menos potente, 
pero no por ello menos útil. 


EoRS TERM 
ARA IR 
PARA IR H 
ENTER A CONTINUA 


INAR 
HACIA 
ACIA 


puedes utilizar, también puedes hacer uso 


A Aparte de comandos normales que 
de éstos. 


Una vez introducido el programa en 
memoria nos aparece un menu con cua- 
tro opciones. Estas son: 


— Introducir textos. 

— Ver/modificar texto. 
— Imprimir texto. 

— Salir del programa. 

En cualquiera de las tres primeras op- 
ciones que elijamos, el ordenador nos 
preguntará el nombre del fichero que 
contiene nuestro diario y la fecha. La fe- 
cha nos la pide porque el diario, al igual 
que un diario de verdad, está organiza- 
do por días. 

A la hora de ponernos a escribir no hay 
ningún problema en escribir una fecha 
anterior a la última escrita. El ordenador 
la gestionará adecuadamente y la orde- 
nará. 


Con este programa puedes tener un Atrio electronico. Este te permitira 
escribir Fodo lo que quieras, alwacenarlo en disco $ esiniBloO con el 
formato que tu desees, con letras grandes o con bras peque 


¡a Ejemplo de ejecución del Programa 
Diario. 


Las teclas que podemos utilizar para 
escribir el texto son las siguientes: 


— Las teclas del cursor. 

— La tecla TAB. 

— la tecla BACKSPACE (borra el ca- 
rácter de la izquierda). 

— CONTROL Q para ir a la página ante- 
rior. 

— CONTROL Z para ir a la página si- 
guiente. 

— CONTROL T para terminar la sesión. 


Lo único que falta por decir es que por 
cada fecha contamos con tres paginas 
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distintas de texto que podemos llenar o Aunque este programa sólo es válido 
no. Para pasar de una página a otra po- para el IBM, en tomos sucesivos veremos 
demos utilizar las teclas CONTROL QA y las distintas versiones de este programa 
CONTROL Z o bien poner el cursor al final 'para otros ordenadores. 

de una página para ir a la siguiente o 

bien poner el cursor al principio de una' 

página para ir a la anterior. 


MOSSOS lalalalolbjojojojak 
DIARIO 


POR: PETER BERGMANN 


ETE AE 


FASSI Jal lolo jook 
* 
VARIABLES + 


k 
ARRAY DE PAGINAS Y FILAS* 
NOMBRE DEL FICHERO 
ARRAY TEMPORAL 
FLAG (S/N) 
CONTADORES 
OPCION DEL MENU 
FICHERO EXISTENTE FLAG 
STRING TEMPORAL 
RESPUESTA PARA CONT. 
FECHA 
FECHA (DEL REGISTRO) 
NUMERO DE LA PAGINA 
NUMERO DE LA FILA 
NUMERO DE LA COLUMNA 
NUMERO DE LA FILA ANTES 
FECHA 
MES 
DIA 
ARO 

R$ RESPUESTA (S/N) 

AS INPUT CHARACTER 

Ss NUMERO DE DIAS EN MES 

GS TAMAZO  (G/P) 


EEES 


ARK XAALRAKAAIAA¡CARERRIKIXAIRRORAOSR 


ES 
k 
k 
k 
k 
xk 
k 
k 
k 
xk 
k 
k 
k 
* 
* 
k 
x 
* 
* 
k 
xk 
k 
* 
k 
k 
k 
* 
* 
* 


REM 
REM **x* PRESENTACION *x*x* 
REM 
KEY OFF 
CLS 
PRINT STRING$(79,"x*") 
FOR I = 1 TO 19 
PRINT "x"; TAB(79); "*" 
NEXT I 
PRINT STRINGS(79,"x") 
LOCATE 8,36: PRINT "DIARIO" 
LOCATE 9,35: PRINT " ' 
LOCATE 12,26: PRINT "(c) Ed. Siglo Cultural, 1987" 
LOCATE 24,1 
FOR 1 = 1 TO 1200: NEXT 1 
REM 
REM *x*x*x DECLARACION DE ARRAYS **x* 
REM 
E$(80) 
T$(3, 20) 


670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


REM ASS ollo ali O JOR Jok 
REM *x MENU k 
REM ASS OSO OOOO OOOO IOJOIOK 
REM 

CLS 

LOCATE 3,38: PRINT "MENU" 

LOCATE 4,37: PRINT "------ y 

LOCATE 6,32: PRINT "1 - INTRODUCIR TEXTO" 
LOCATE 7,32: PRINT "2 - VER/MODIFICAR TEXTO" 
LOCATE 8,32: PRINT "3 IMPRIMIR TEXTO" 
LOCATE 9,32: PRINT "4 - SALIDA" 

LOCATE 14,1: PRINT "(QUE DESEAS (1-4)"; 
INPUT O 


IF (0 < 1) OR (O > 4) GOTO 1730 
ON O GOSUB 940, 1080, 1260, 830 
GOTO 660 

REM 

REM *x*x* SALIDA x*x*xk 

REM 

CLS 


PRINT "ADIOS..." 
FOR I=1 TO 10 
PRINT 
NEXT 1 
KEY ON 
END 
GOTO 920 
REM ; 
REM FOME lok 
REM x ENTRADA DEL TEXTO * 
REM AAA AA RO Rd RR RR ad 
REM 
CLS 


1000 GOSUB 1400 

1010 GOSUB 1500 

1020 GOSUB 2710 

1030 GOSUB 1830 

1040 IF X$ = "S" THEN GOSUB 2150: GOTO 1070 
1050 GOSUB 3470 

1060 GOSUB 2220 

1070 RETURN 

1080 REM 

1090 REM AdSRaSO Salada lalalala lalojajalala lalola jdlalalalololalolaok 
1100 REM x* BUSCAR/CAMBIAR TEXTO k 
1110 REM dado SO OO aida lalalala loa jalo lalalala lalola lajalolajololok 
1120 REM 

1130 CLS. 

1140 GOSUB 1400 

1150 GOSUB 1500 

1160 GOSUB 2710 

1170 GOSUB 1830 

1180 IF X$ = "N” THEN GOSUB 2080: GOTO 1240 
1190 LET P = 1 

1200 GOSUB 2570 

1210 GOSUB 3470 

1220 GOSUB 2360 

1230 GOSUB 2220 

1240 RETURN 

1250 REM 

1260 REM Aoi oido OS lalola lolo lIOIOK 


1270 
1280 
1290 
1300 
1310 
1320 


1330 
1340 
1350 


REM * IMPRIMIR TEXTO x 
REM ARSS dida O jolololEjalalaja lalala lolalalalalalajojajojok 
REM . 

CLS 

GOSUB 1400 

GOSUB 1500 w 

GOSUB 2710 

GOSUB 1830 

IF X$ = "N" THEN GOSUB 2080: GOTO 1390 
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1360 LET P = 1 

1370 GOSUB 3330 

1380 GOSUB 3200 

1390 RETURN 

1400 REM 

1410 REM *x*x* INICIALIZACION DE ARRAYS xxx 

1420 REM 

1430 FOR I = 1 TO 3 

1440 FOR J= 1 TO 20 

1450 LET T$(1,J) = SPACE$(80) 

1460 LET ES(J) = " “ 

1470 NEXT J 

1480 NEXT 1 

1490 RETURN 

1500 REM 

1510 REM xx%** NOMBRE DEL FICHERO A USAR *xx - 

1520 REM 

1530 CLS 

1540 LET L$ = "Ss" 

1550 LOCATE 1,34 

1560 IF O = 1 THEN PRINT "FICHERO DE SALIDA" ELSE PRINT "FICHERO DE ENTRADA" 
1570 LOCATE 2,33 

15890 TE 0/= 1 “TREN PRINT "===" "ELSE PRINT "---=======n==o====- a 
1590 LOCATE 4,1: PRINT "(CUAL ES EL NOMBRE DEL FICHERO" 
1600 INPUT F$ 

1610 LOCATE 6,1: PRINT "EL NOMBRE ES ";F$ 

1620 ON ERROR GOTO 1790 

1630 OPEN F$ FOR INPUT AS +1 

1640 CLOSE +1 

1650 LOCATE 9,1 

1660 IF L$ = "N" THEN PRINT "ES UN FICHERO NUEVO" ELSE PRINT "ESTE FICHERO YA EX 
ISTE" 

1670 IF (O <> 2) OR (L$ <> "N") THEN GOTO 1720 

1680 LOCATE 11,1: PRINT "NECESITAS TENER UN FICHERO QUE EXISTA" 
1690 PRINT "(ENTER PARA CONTINUA)" 

1700 C$ = INPUT$(1) 

1710 GOTO 1500 

1720 LOCATE 11,1: PRINT “(ESTA CORRECTO (S/N)"; 

1730 INPUT R$ j 

1740 IF R$ = "N" THEN GOTO 1500 

1750 IF R$ <> "S" THEN GOTO 1720 

1760 ON ERROR GOTO O 

1770 RETURN 

1780 REM 

1790 REM **xk FILE ERROR xxx 

1800 REM 

1810 LET L$ z "N" 

1820 RESUME 1650 

1830 REM 

1840 REM *x*x* BUSCAR/LEER FICHERO ANTIGUO xokx 

1850 REM 

1860 LET X$ = "Y" 

1870 IF L$ = “N" THEN GOTO 2070 

1880 CLS 

1890 PRINT "ESPERE, POR FAVOR... CARGANDO REGISTROS" 
1900 LET X$ = "N" 

1910 OPEN F$ FOR INPUT AS +1 

1920 OPEN "TEMP" FOR OUTPUT AS +*2 

1930 WHILE NOT EOF(1) 

1940 INPUT +1, DI 

1950 IF DI = D THEN LET X$ = "S” ELSE WRITE 2, DI 
1960 FOR I = 1 703 


* 


1970 FOR J = 1 TO 20 

1980 INPUT +41, S$ 

1990 IF DI <> D THEN WRITE $2, S$: GOTO 2010 

2000 IF S$ = " " THEN LET T$(1,J) = SPACE$(80) ELSE LET T$(1,J) = S$ 
2010 NEXT J 


2020 NEXT 1 
2030 WEND , 


2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 


CLOSE $1 

CLOSE 442 

IF X$ = "N" THEN KILL "TEMP" 
RETURN 

REM 

REM *x*x* FECHA NO ENCONTRADA vrokxk 
REM 

CLS 


LOCATE 10,10: PRINT M$;"/";W$;"/";Y$;" NO SE ENCONTRO EN EL FICHERO "; 


LOCATE 11,10: PRINT "(ENTER PARA CONTINUA) ";: C$ = INPUT$(1) 
RETURN 


REM 

REM x*x*X LA FECHA EXISTE *xx 

REM 

CLS 

LOCATE 10,32: PRINT "ESTA FECHA EXISTE" 

LOCATE 20,32: PRINT "(ENTER PARA CONTINUA) ";:C$ = INPUT$(1) 


RETURN 
REM s 
REM x*x*x* GRABACION *xx 
REM 
OPEN F$ FOR APPEND AS $1 
WRITE $1, D 
FOR 1 = 1 70 3 
FOR J = 1 TO 20 
IF T$(1,J) > SPACE$(80) THEN WRITE $1, T$(1,J) ELSE WRITE +41, " " 
NEXT J 
NEXT 1 
CLOSE +1 
LOCATE 10,10: PRINT "TEXTO DE “;M$;"/";W$;"/";Y$;" GRABADO EN ";F$ 


, 


LOCATE 12,10: PRINT "(ENTER PARA CONTINUA) ";: C$ = INPUT$(1) 
RETURN 


REM 
REM *x*x*- CAMBIAR FICHERO ANTIGUO %*xx 
REM 
CLS 
PRINT "ESPERE, POR FAVOR... ESCRIBIENDO FICHERO” 
OPEN F$ FOR OUTPUT AS +1 
OPEN "TEMP" FOR INPUT AS +2 
IF EOF(2) THEN GOTO 2530 
INPUT +2, DI 
IF EOF(2) THEN GOTO 2530 
WRITE $1, DI 
FOR I = 1 TO 3 
FOR J = 1 TO 20 
INPUT +2, S$: WRITE +41, S$ 
NEXT J 
NEXT I 
GOTO 2430 
CLOSE +1 
CLOSE +2 
KILL "TEMP" 
RETURN 
REMX 
REM XxX IMPRIMIR PAGINA xx 
REM 
CLS 
LOCATE 1,1 
FOR R = 1 TO 20 : 
IF T$(P,R) = SPACE$(80) THEN PRINT: GOTO 2650 
LOCATE R,1: PRINT TS$(P,R) 
NEXT R , . 
LOCATE 21,1: PRINT STRING$(80,"_") 


LOCATE 23,1: PRINT M3;"/";W$;"/";YS,,,,"pag. "¡P 
LOCATE 1,1 - 

LET R= 1: LET RL =1 

RETURN 

REM 

REM **xx* LECTURA DE LA FECHA xk 


2 PROGRAMAS 


2730 REM 

2740 CLS 

2750 LOCATE 2,1: PRINT "INTRODUCE LA FECHA (MMDDYY): "; 
2760 LET I = 1 : 

2770 WHILE 1 < 7 

2780 C$ = INPUT$(1) 


2790 C = ASC(C$) 

2800 IF (C$ = CHR$(8)) AND (1 > 1) THEN PRINT CHR$(29);" "¡CHR$(29);:1 = 1 - 
1: GOTO 2780 

2810 IF (C < 48) OR (C > 57) THEN GOTO 2780 
2820 PRINT C$; 

2830 LET E$(1I) = C$ 

2840 A A a Y 

2850 WEND 

2860/LET DF. = "" 

2870 FOR I = 1 TO 6 

2880  D$ = D$ + Es(1) 

2890 NEXT 1 

2900 GOSUB 3030 

2910 IF X$ = "S" THEN GOTO 2950 

2920 PRINT :PRINT "FECHA NO VALIDA" 

2930 LOCATE 2,1: PRINT SPACE$(80) 

2940 GOTO 2750 

2950 CLS 

2960 PRINT "LA FECHA ES ";M$;"/";WS;"/";Y$ 
2970 LOCATE 4,1: PRINT "(ES CORRECTA"; 

2980 INPUT R$ 

2990 IF R$ = "N" THEN GOTO 2710 

3000 IF R$ <> "S" THEN GOTO 2970 

3010 D = VAL(D$) 

3020 RETURN 

3030 REM 

3040 REM *x*x* COMPROBAR FECHA ox 

3050 REM 

3060 LET X$ = "Ss" y 
3070 LET S = 30 


3080 LET M$ = LEFT$(D$3, 2) 
3090 LET W$ = MID$(D$, 3,2) 
3100 LET Y$ = RIGHT$(D$, 2) 


3110 M = VAL(M$): W = VAL(W$): Y = VAL(Y$) 
3120 PRINT :PRINT M$;"/"¡W$;"/";Y$ 
3130 IF (M< 1) OR (M > 12) THEN PRINT "MES NO INVALIDO": LET X$ = "N": GOTO 319 
0 
3140 IF (Y < 85) OR (Y > 90) THEN PRINT "A%O NO VALIDO": LET X$ = "N": GOTO 3190 
3150 IF (M= 1) OR (M = 3) OR (M = 5) OR (M = 7) OR (M= 8) OR (M = 10) OR (M = 
12) THEN LET S = 31 
3160 IF M ="2 THEN LET S = 28 
* +3170 IF (M= 2) AND (Y = 88) THEN LET S = 29 
3180 IF (W< 1) OR (W > S) THEN PRINT "DIA NOÍl VALIDO": LET X$ = "N" 
3190 RETURN 
3200 REM 
3210 REM *x*x* SALIDA POR IMPRESORA xxx 
3220 REM 
3230 CLS 
3240 PRINT "IMPRIMIENDO ..." 
3250 FOR P = 1 TO 3 
3260 LPRINT M$;"/"3W8;"/";YS,,,, "pag. ";P:LPRINT: LPRINT 
3270 FOR R = 1 TO 20 
3280 LPRINT T$(P,R) 
3290 NEXT R 
3300 LPRINT CHR$(12) 
3310 NEXT P 
3320 RETURN 
3330 REM 
3340 REM *** PREPARAR LA IMPRESORA xxx 
3350 REM 
3360 LPRINT CHR$(27)+CHR$(64) 
3370 CLS 


3380 LOCATE 2,1: PRINT "(QUIERES IMPRESION GRANDE O PEQUEXA (G/P)"; 


3390 INPUT G$ 

3400 IF G$ = "P" THEN LPRINT CHR$(27)+CHR$(15) 

3410 IF G$ = "G” THEN LPRINT CHR$(18) 

3420 IF (G$ <> "P") AND (G$ <> "G") THEN GOTO 3370 
3430 CLS 

3440 LOCATE 2,1: PRINT “COLOCA EL PAPEL Y PULSA ENTER"; 
3450 C$ = INPUT$(1) 

3460 RETURN 


3470 REM 

3480 REM **x* PANTALLA DE ENTRADA xxx 
3490 REM 

3500 IF O = 2 THEN GOTO 3580 

3510 CLS 


3520 LOCATE 2,1: PRINT "*CTRL T*? PARA TERMINAR Y GRABAR" 
3530 LOCATE 3,1: PRINT "*CTRL Q* PARA IR HACIA ARRIBA" 
3540 LOCATE 4,1: PRINT "*CTRL Z? PARA IR HACIA ABAJO" 
3550 LOCATE 6,1: PRINT "ENTER A CONTINUA" 

3560 C$ = INPUT$(1) € 
3570 CLS 

3580 LET P = 1 

3590 LET RL = 1 

3600 LOCATE 21,1: PRINT STRING$(80,"_") 

3610 LOCATE 23,1: PRINT M$;"/";W$;"/";YS,,,,"PAGE ";P 
3620 LOCATE 1,1,1 

3630 A$ = INKEY$: IF A$ = "" THEN GOTO 3630 


3640 IF A$ = CHR$(8) THEN PRINT CHR$(29);" ";CHR$(29); 
3650 IF A$ = CHR$(17) THEN GOSUB 4010: GOTO 3630 
3660 IF A$ = CHR$(26) THEN GOSUB 4080: GOTO 3630: REM* GO FORWARD ONE PAGE 


3670 IF LEN(A$) = 2 THEN GOSUB 3720: GOTO 3630 
3680 IF A$ = CHR$(20) THEN GOTO 3710 

3690 GOSUB 3850 

3700 GOTO 3630 

3710 RETURN 

3720 REM 

3730 REM x*x*x* MOVIMIENTO DEL CURSOR xxx 

3740 REM 

3750 
3760 POS(0) 

3770 IF MID$(A$,2,1)="5H" AND (R > 1) THEN PRINT CHR$(30); 

3780 IF MID$(A$,2,1)="P" AND (R < 20) THEN PRINT CHR$(31); 

3790 IF MID$(A$,2,1)="K" AND (C > 1) THEN PRINT CHR$(29); 

3800 IF MID$(A$,2,1)="M" AND (C < 80) THEN PRINT CHR$(28); 

3810 IF (RL = 20) AND (MID$(A$,2,1)="P") THEN GOSUB 4080: REMx PAGE AHEAD 


3820 IF (RL = 1) AND (MID$(A$,2,1)="H") THEN GOSUB 4010: LOCATE 20,1: REM* PAGE 
BACK 


am 

o." 
a 
E 
E 
z 


3830 LET RL = R 

3840 RETURN 

3850 REM 

3860 REM *x*x GRABAR EN ARRAY x*xx*k 
3870 REM 


3880 R = CSRLIN 
3890 C = POS(0) 


3900 IF (R = 20) AND (C = 80) AND (P = 3) THEN GOTO 4000 
3910 IF A$ = CHR$(13) THEN GOTO 3970 
3920 IF A$ = CHR$(9) THEN GOSUB 4440: GOTO 4000 


3930 IF C = 80 THEN GOSUB 4150: GOTO 4000 

3940 IF A$ = CHR$(8) THEN MID$(T$(P,R),C,1) = " " ELSE MID$(T$(P,R),C,1)= AS 
3950 IF A$ <> CHR$(8) THEN PRINT A$; 

3980 GOTO 3990 

3970 IF R = 20 THEN GOSUB 4080 ELSE R = R + 1:LOCATE R,1,1 
3980 R = CSRLIN i 

3990 LET RL = R 

4000 RETURN 

4010 REM l 

4020 REM **x*x UNA PAGINA HACIA ATRAS xxx 

4030 REM 

4040 IF P = 1 THEN GOTO 4070 

4050 P =P -1 

4060 GOSUB 2570 
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£ 


A 


RETURN 
REM 
REM xxx* UNA PAGINA HACIA ADELANTE >xk%xx 
REM 
IF P = 3 THEN GOTO 4140 
(A A | 
GOSUB 2570 
RETURN 
REM 
REM %*** EDICION DE LINEA Xxx 
REM 
MID$(T$(P,R),80,1) = A$ 
IF A$ = " " THENR=R+ 1: LET RL = R: LOCATE R,1,1:GOTO 4410 
LET 1 = 80 
LETRA UN 
WHILE X$ = "N" 
T= TI 
IF MIDS(TS(P,R),1,1) = " " THEN LET X$ = "F" 
WEND 
ISA 
FOR J = 1 TO 80 
LET E$(J - 1 + 1) = MID$(T$(P,R),J,1) 
MIDS(T$(P,R),J,1) = " " 
NEXT J 


LOCATE R,1: PRINT T$(P,R) 

IF R< 20 THEN R = R + 1 ELSE LET R = 1 
LET RL = R 

1=800- 1 + 1 

IF R = 1 THEN GOSUB 4080 

LOCATE R,1,1 

FOR J = 1 TO I 


PRINT E$(J); 
MIDS(T$(P,R),J3,1) = E$(J) 
NEXT J 
C = POS(0) 
c=C-1 
RETURN 
REM 
REM x*xx* CHEQUEO DEL TAB x*x*x 
REM 
IF (R = 20) AND (C > 70) THEN LOCATE 20,80 ELSE PRINT A$; 


RETURN 


> 
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N toda la tarea de 
análisis han de bus- 
carse esencialmente 
dos cualidades: la se- 
guridad en los proce- 
sos (controles, exa- 
' men de todas las 
— condiciones posibles 
y todos los casos, seguridades de proce- 
50...) y la claridad de exposición de los 
procesos diseñados. Es importante la cla- 
ridad tanto por el hecho de que las per- 
sonas que van a realizar la programación 
y las que van a utilizarlo posteriormente 
son distintas (muy comúnmente) de 
quien diseña el sistema, como por la cir- 
cunstancia (que se da con cierta fre- 
cuencia) de que posteriormente suelen 
tener que conocer (y quizá modificar o 
ampliar) el análisis otras personas distin- 
tas de quien hizo el primer estudio. Por 
todo esto es básico que se prepare una 
documentación exhaustiva del análisis y 
que, además, sea muy clara. A la clari- 
dad de exposición ayuda enormemente 
la utilización de normas y formularios 
preimpresos y el uso de organigramas, 
diagramas, ordinogramas... y, en gene- 
ral, cualquier representación gráfica y vi- 
sual de los procesos a realizar, 
Para la representación gráfica se pue- 
den utilizar diversos tipos de esquemas y 


no existe unanimidad respecto de qué . 


tipo es el óptimo para cada descripción 
(ni incluso, en el nombre de cada tipo de 
representación). 

Nosotros en lo que sigue aludiremos a 
tres tipos de esquema de representa- 
ción: organigramas, ordinogramas y dia- 
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ORGANIGRAMAS Y DIAGRAMAS 


gramas de flujo. Se entiende por organi- 
grama una representación bidimensio- 
nal de la estructura general de un proce- 
so o un sistema con sus relaciones y vin- 
culaciones. (Por supuesto, esta defini- 
ción es válida para los organigramas uti- 
lizados en el análisis informático; la defi- 
nición, el concepto e, incluso, la simbo- 


MOVIMIENTOS 
DEL 


SELECCION 
POR CLAVE 


PREPARACION 
DE DATOS 
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logía son distintos si se trata de organi- 
gramas que reflejan una estructura em- 
presarial, el funcionamiento de un orga- 
nigrama cualquiera...). Por ordinograma 
entendemos una representación, del es- 
tilo de la anterior, en que se subraya la 
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ANOMALIAS 


ANOMALIA 


conexión de los diferentes procesos para 
seguir su secuencia, y las relaciones en- 
tre una actividad y otras vinculadas a 
ella, los datos que deben pasar de un 
proceso a otro, etc. Por último, en el dia- 
grama de flujo (representación lineal del 
proceso) lo importante es subrayar el 
«Avance» de la información y la evolu- 
ción y transformación de los datos a lo 
largo del proceso, sin reflejar la estructu- 
ra general del proceso ni los elementos 
que intervienen en el programa. 


La concreción de la información au- 
menta a medida que seguimos los pasos 
indicados: organigrama, ordinograma y 
diagrama de flujo. Dentro de los organi- 
gramas, cabe la preparación de varios ti- 
pos, dependiendo de si queremos repre- 
sentar el proceso en su conjunto o una 
parte de él, toda una aplicación o unos 
programas, y así, se suelen preparar «or- 
ganigrama general de la aplicación», 
«Organigrama de programa», «organigra- 
ma de detalle de un proceso», etc. 


PASO 4 
Grabar P2 MAESTRO 


Grabar P1 DET 5 


PASO 2 


Leer P2 MOV 


PASO 3 PASO 5 


(O) PASO 4 Actualización 
Paso a otro 


(65) PASO 4 registro 
Emisión 


de PAsO 6 de informes 


PASO 4 (Di 


Grabar P4 MAESTRO 


Leer P2 MOV 


La utilización que se suele dar a los 

símbolos es la siguientes: 
r Simbolo de proceso. Para re- 
| | presentar un tratamiento cual- 
LAA quiera o una operación que 
no tenga otro simbolo previsto. 

Simbolo de operación ma- 
nual. Se refiere a los procesos 
fuera de línea (off-line) que 
haya que realizar. Es impor- 
tante reseñarlos, pues, al ser 
su velocidad normalmente 
lenta respecto al proceso por 
el ordenador y/o los periféri- 
cos deben ser tenidos muy en 
cuenta. 

Operación auxiliar. Normal- 
| mente se representan con 
este símbolo las operaciones 

realizadas fuera de línea por 
otras máquinas auxiliares o 
mediante otros procesos pre- 
vios, que deben estar disponi- 
bles, pero que no son estricta- 
mente intervenciones del 
operador y no tienen, por tan- 
to, que consumir tiempo. 


EXPRESIONES 


EMOS visto hasta aho- 
ra cómo se definen 
los datos de un pro- 
grama (especifican- 
do su estructura y su 
tipo) y cómo se pue- 
den asignar valores a 
, las variables que van 
a contener dichos datos. Pero para que 
nuestros programas sirvan para algo, no 
basta con disponer de uno o varios da- 
tos: tenemos también que realizar opera- 
ciones con ellos. Estas operaciones se 
llevan a cabo por medio de expresiones. 

Una «expresión» es una fórmula que 
realiza una o varias «operaciones» con 
uno o más «datos» produciendo un nue- 
vo dato (el «resultado» de la expresión). 
En las expresiones existen, por tanto, dos 
clases de términos diferentes: las «opera- 
ciones» y los «datos». La expresión más 
sencilla es la que realiza una sola opera- 
ción con un solo dato, obteniendo un 
solo resultado. Por ejemplo, podemos to- 
mar el valor de una variable y cambiarlo 
de signo. Veamos cómo se hace esto en 
APL: 


En nuestro ejemplo, el dato es X (cuyo 
valor es 3) y la operación es el cambio 
de signo (representado por el signo me- 
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nos). El resultado de la operación es, na- 
turalmente, el valor -3. Por tanto, la fór- 
mula -X es una expresión en el lenguaje 
APL. 

Otras expresiones, también muy senci- 
llas, realizan una sola operación sobre 
dos datos diferentes. Por ejemplo, la fór- 
mula X+2 , válida en casi todos los len- 
guajes de ordenador, obtiene un resulta- 
do que supera en dos unidades al valor 
de X: 


Este último ejemplo nos indica que los 
datos que forman parte de una expresión 
pueden ser, indistintamente, constantes 
(como el 2) o variables (como la X). Ade- 
más puesto que el resultado de una ex- 
presión es también un dato, también 
puede formar parte de otra expresión. 
Esto significa que las expresiones pueden 
concatenarse unas con otras, actuando 
cada una sobre el resultado de la ante- 
rior, hasta llegar a ser tan complicadas 
como se desee. Por ejemplo: 


La expresión anterior calcula la distan- 
cia a la que cae la bala de un cañón si 
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el alcance máximo del arma (la distan- 
cia alcanzada por la bala cuando se dis- 
para el cañón con un ángulo de 45”) es 
«A» metros y el ángulo de elevación del 
cañón es igual a «E» grados. Para com- 
prenderla, vamos a descomponerla en 
partes elementales, cada una de las 
cuales es una expresión simple que rea- 
liza una sola operación sobre uno o dos 
objetos. En lo que sigue, supondremos 
que el valor de A es igual a 10.000 me- 
tros y que E es un ángulo igual a 15 gra- 
dos. 


AF10000 
E+15 


1. Comencemos el análisis de la ex- 
presión anterior por la derecha. La prime- 
ra expresión parcial que encontramos es 
la siguiente: 


E+180 
0,08333333333 


que no hace otra cosa que dividir el va- 
lor de la variable E entre 180. Se trata por 
tanto, de .una expresión compuesta por 
una sola operación que actúa sobre dos 
datos, y cuyo resultado es, naturalmente, 
igual a 1/12. A este resultado lo llamare- 
mos R1. 

2. A continuación, tendremos que 
realizar la operación siguiente sobre el 
resultado anteriormente calculado: 


o0E+180 
0.2617993878 


En APL, la operación representada con 
un círculo y aplicada a un solo dato, ob- 


tiene como resultado el producto del 
dato al que se aplica por el número «pi» 


(3,141592654). Por tanto, el número obte- 


nido, que llamaremos R2, será igual a 
pi/12. 

3. Viene ahora la tercera operación, 
que consiste en multiplicar por 2 el resul- 
tado R2 obtenido anteriormente: 


2x0E:+180 
0.5235987756 


(21R2) 


Llamaremos R3 al resultado obtenido. 
4. La cuarta operación se representa 
asÍ: 


LAxio210E+180 (LR5) 
A E 


En APL, la operación representada por 
un círculo y aplicada a dos datos repre- 
senta las funciones trigonométricas e hi- 
perbólicas. El número de la izquierda in- 
dica cuál de estas funciones se va a rea- 
lizar. Un 1 representa el seno, un 2 el co- 
seno, un 3 la tangente, etc. El dato que 
se coloca a la derecha es el valor del án- 
gulo, expresado en radianes, sobre el 
que queremos calcular la función trigo- 
nométrica correspondiente. En nuestro 
caso, como la expresión se reduce a «1 
círculo R3», queremos calcular el seno de 
R3 (pi/12 radianes o 30”), que es exacta- 
mente igual a 1/2. Llamaremos R4 al nue- 
vo resultado obtenido. 

5. La operación siguiente que debe- 
mos realizar es una simple multiplicación. 


102x0E:+180 (10R3 ) 


Llamaremos R5 al resultado de multipli- 
car A (10000) por R4 (0,5) que, natural- 
mente, es igual a 5000. 


6. Llegamos al fin a la última opera- 
ción de nuestra expresión: 


Ax102x0E+180 CAXRA) 


En APL, el símbolo representado por un 
ángulo recto representa la funcion «par- 
te entera», que calcula la parte entera 
del dato al que se aplica. En nuestro 
caso, la parte entera de R5 resulta tam- 
bién ser igual a 5000, pues R5 es entero. 
Y éste es, precisamente, el resultado de 
la expresión completa. Esto significa que 
si disparamos un cañón cuyo alcance 
máximo es igual a 10000 metros con un 
ángulo de 15”, la bala alcanzará sólo una 
distancia de 5000 metros, exactamente 
igual a la mitad del alcance máximo del 
arma. 

Veamos cómo, se escribiría la misma 
expresión en el lenguaje BASIC: 


INT (AXSIN(243.14159274E/180)) 


Observaremos que la expresión BASIC 
se parece mucho a la expresión APL, aun- 
que existen algunas diferencias. En pri- 
mer lugar, en BASIC se utilizan palabras 
reservadas en inglés para representar al- 
gunas operaciones, que reciben el nom- 
bre de «funciones incorporadas». En 
nuestro ejemplo aparecen dos: SIN (del 
inglés «sine»), que calcula el seno de un 
ángulo expresado en radianes, e INT (del 
inglés «INTEGER»), que calcula la parte 
entera de un número con decimales. Es- 
tas funciones incorporadas se caracteri- 
zan porque el dato al que se aplican 
debe ir entre paréntesis. Las otras dife- 
rencias consisten en la utilización de sím- 


bolos distintos para las operaciones arit- : 


méticas elementales (un asterisco para 
la multiplicación y una línea inclinada 
para la división) y en la necesidad de es- 
pecificar explícitamente el valor de «pi». 

Veamos, por último, la versión PASCAL 
de esta misma expresión: 


int (afsin (283. 1415927%e/180)) 


Como se ve, es idéntica a la expresión 
BASIC. En realidad, la construcción de ex- 
presiones es la parte de los lenguajes de 
programación en que éstos difieren me- 
nos entre sí. Podrán utilizarse unos símbo- 
los u otros, o bien palabras reservadas, 
pero la expresión en sí suele parecerse 
bastante de un lenguaje a otró. Unica- 
mente en lenguajes como APL, mucho 
más potentes que los lenguajes de pro- 
gramación corrientes de la tercera gene- 
ración, encontramos operaciones (como 
la conversión de base de sistema de nu- 
meración, el producto de matrices o la 
inversión matricial) que se expresan con 
un solo símbolo, mientras en otros len- 
guajes (como BASIC o PASCAL) precisan 
para su cálculo de programas completos 
formados por numerosas instrucciones 
ejecutables. 

Acabamos de ver que una expresión 
compleja puede descomponerse siem- 
pre en dos o más expresiones más senci- 
llas, Sin embargo, aun no hemos dicho 
nada sobre el orden en que se realizarán 
las operaciones, o cómo puede conse- 
guirse que unas tengan lugar antes de 
otras. Como ejemplo, consideremos la 
expresión BASIC siguiente, 


que se compone de dos operaciones 
(una multiplicación y una suma) que ac- 
túan sobre un total de tres datos (los nú- 
meros 3, 4 y 2). ¿Cuál es la operación 
que debemos realizar primero? ¿La mul- 
tiplicación o la suma? El resultado final 
sería totalmente diferente en uno y otro 
caso. En efecto, si empezamos por la mul- 
tiplicación, la primera operación a reali- 
zar será 3 por 4, cuyo resultado es 12. En 
la segunda operación, habrá que sumar 
12 más 2, dando un resultado final de 14. 
Sin embargo, si empezáramos por la 
suma, comenzaríamos por calcular 4 más 
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2, que nos da un resultado de 6. A conti- 
nuación efectuaríamos la multiplicación 
de 3 por 6, lo que daría un resultado final 
igual a 18. ¿Cuál de los dos es correcto? 
¿146 18? 

No existe respuesta a la pregunta ante- 
rior. En realidad, los dos son correctos, 
dependiendo de las reglas del juego. En 
algunos lenguajes de programación, 
como en BASIC y PASCAL, se admite que 
unas operaciones tienen precedencia 
intínseca sobre otras. En particular, en 
circunstancias como las anteriores, la 
multiplicación tiene siempre preceden- 
cia respecto a la suma. Por tanto, se rea- 
lizará antes, y el resultado de la expre- 
sión será igual a 14. En estos lenguajes, 
existe toda una jerarquía de operacio- 
nes que hay que aprender de memoria y 
tener presente a la hora de escribir pro- 
gramas que contengan expresiones con 
operaciones múltiples. 

Veamos la jerarquía de las operacio- 
nes en el lenguaje BASIC: 


1. Potenciación, representada por el 
símbolo ”. 

2. Cambio de signo, representado 
por el signo - aplicado a un solo dalo. 

3.. Multiplicación (*) y división (/), In- 
distintamente. Cuando coinciden varias 
multiplicaciones o divisiones en la misma 
expresión, la que se encuentra más a la 
izquierda se efectúa primero. 

4. División entera, representada por 
el símbolo +. 

5. Resto de la división entera, repre- 
sentada por la palabra reservada 
«MOD». Esta operación, junto con las seis 
operaciones lógicas indicadas más aba- 
jo, es una excepción a la regla de que 
las funciones representadas por pala- 
bras reservadas tienen siempre sus datos 
entre paréntesis. El resto de dividir 8 en- 
tre 3 se representa como «8 MOD 3». 

6. Suma (+) y resta (-) aplicadas a dos 
datos, indistintamente. Cuando coinci- 
den varias sumas y restas en la misma ex- 
presión, la que se encuentra más a la iz- 
quierda se etectúa primero. 

7. Comparaciones de valor, represen- 
tadas por los símbolos = (igualdad), < 
(menor que), > (mayor que), <= o =< 
(menor o igual que), >= o => (mayor o 
igual que) y <> o >< (desigualdad). 

8. Operación lógica NOT. 


9. Operación lógica AND. 
10. Operación lógica OR. 
1d; Operación lógica XOR. 
12. Operación lógica EQV. 
13. Operación lógica IMP. 


Explicaremos con detalle las operacio- 
nes de comparación y las operaciones 
lógicas un poco más adelante. 

Veamos ahora la jerarquía de las ope- 
raciones en el lenguaje PASCAL: 


1. Cambio de signo, representado 
por el signo - aplicado a un solo dato. 

2. Operación lógica NOT. 

3. Multiplicación (*), división (/), divi- 
sión entera (DIV), resto de la división en- 
tera (MOD) y operación lógica AND, in- 
distintamente. Cuando coinciden varias 
de estas operaciones en la misma expre- 
sión, la que se encuentra más a la izquier- 
da se efectúa primero. 

4. Suma (+) y resta (-) aplicadas a 
dos datos, así como las operaciones ló- 
gicas OR y XOR, indistintamente. Cuando 
coinciden varias de ellas en la misma ex- 
presión, la que se encuentra más a la iz- 
quierda se efectúa primero. 

5. Comparaciones de valor, represen- 
tadas por los símbolos = (igualdad), < 
(menor que), > (mayor que), <= (menor 
o igual que), >= (mayor o igual que) y 
<> (desigualdad). 


Como puede observarse, el orden de 
precedencia de PASCAL se parece al de 
BASIC, pero no es idéntico, pues existen 
pares de operaciones cuya preceden- 
cia es inversa. 

En APL existe un número tan grande de 
operaciones posibles, que sería muy difí- 
cil aprender de memoria una tabla de 
precedencias. Por tanto, se decidió 
que todas las operaciones tendrían la 
misma precedencia, y que se ejecutaría 
primero aquella que estuviera situada 
más a la derecha. En el ejemplo dado al 
principio de este capítulo hemos aplica- 
do precisamente, y en forma sucesiva, 
esta regla de precedencia. También es 
de notar que en APL la expresión 3x44+2 
(correspondiente a la expresión BASIC o 
PASCAL 3*4+2 dada más arriba) tiene un 
valor igual a 18, pues la suma se realiza- 
rá antes que la multiplicación, por estar a 
su derecha. 
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Cómo hacer 
que la tortuga 
olvide cosas 


Si al definir un procedimiento, es decir, 
enseñar a la tortuga a hacer una cosa 


nueva para ella y mandarle que lo eje- 
cute nos damos cuenta de que no dibu- 
ja lo que nosotros queremos, significa 
que nos hemos equivocado al escribir 
algo y tenemos que cambiarlo. 

Por ahora, lo que vamos a hacer es de- 
cirle que se olvide de eso nuevo que le 
hemos enseñado y definir el procedi- 
miento otra vez, 

Para borrar un procedimiento, es decir, 
que la tortuga se olvide de cómo se 
hace, usaremos el comando: 


BORRA “nombre 
o en abreviatura 
BO "nombre 


siendo nombre el nombre del procedi- 
miento que queremos borrar. 

Si en lugar de querer borrar un solo pro- 
cedimiento, deseamos borrar varios pon- 
dremos sus nombres en una lista: 


BO (nombre1 nombre2 ... nombren) 


Veamos un ejemplo. Supongamos que 
queremos dibujar un triangulo asi: 


ALGO MAS SOBRE PROCEDIMIENTOS 


Si definimos un procedimiento: 


Z 


"TRIANGULO 


? PARA 


2 REPITE 3 [AV 45 GD 120] 


y mandamos a la tortuga que lo ejecute: 
7? TRIANGULO 


nos saldrá: 


que no es lo que nosotros queremos. 

Por tanto, nuestro procedimiento no 
nos vale y tenemos que borrarlo de la 
memoria de la tortuga: 


Para comprobar que, efectivamente, 


lo ha olvidado si le decimos ahora: 


? TRIANGULO 
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nos responderá con un mensaje de error: 


| pulsamos ' 


a 


Entonces, en este momento podemos 
enseñarle de nuevo a hacer el triángulo, 
pero correctamente: 


7 PARA "TRIANGULO 
> BI 90 
> REPITE 3 [AV 45 6D 1201 


> FIN 


Por último, si en lugar de querer borrar 
uno o varios procedimientos, deseamos 
eliminar todos, no hace falta dar cada 
uno de sus nombres, sino que podemos 
utilizar el comando 


BOTODO 


que le indica a la tortuga que se olvide 
de todas las cosas nuevas que ha apren- 
dido. 


Como es lógico, cada procedimiento 
nuevo que creemos ha de tener un nom: 
bre diferente de los que ya están defini- 
dos para.que la tortuga pueda distinguir- 
los y no se arme un lío. 

Por eso, en un momento determinado 
(sobre todo cuando ya hemos definido 
muchos procedimientos) nos puede inte- 
resar conocer los nombres de todas las 
cosas nuevas que le hemos enseñado a 
la tortuga. 

El comando que hace que la tortuga 
nos muestre todos los nombres de los pro- 
cedimientos definidos es 


IMTS 


abreviatura de IMprime TítuloS. 


Así, por ejemplo, si tenemos definidos 
los siguientes procedimientos: triángulo, 
cuadrado, casa y figura, al escribir: 


?7IMTS 


la tortuga responderá: 


PARA TRIANGULO 
PARA CUADRADO 
PARA CASA 
PARA FIGURA 
2 
Por otro lado, es posible que, a veces, 
nos interese ver no sólo los nombres de 
los procedimientos que hemos definido, 
sino también su contenido, es decir, su 
definición en sí. 
Para ello, disponemos de dos coman- 
dos. Si deseamos ver la definición de un 
procedimiento usaremos el comando 


IM “nombre 


siendo IM la abreviatura de IMprime y 
nombre el nombre del procedimiento. 

Por el contrario, si queremos ver la de- 
finición de varios procedimientos a la 
vez, utilizaremos el comando 


IM (nombre1 nombre? ... 


es decir, pondremos en una lista sus nom- 
bres. 

Por último, si lo que queremos hacer es 
ver la definición de todos los procedi- 
mientos que hayamos creado, el coman- 
do será ' 


IMTODO 


Como es lógico, en el caso de que no 
le hayamos enseñado nada nuevo a la 
tortuga o le hayamos mandado que lo ol- 
vide todo mediante el comando BOTO- 
DO, al pedirle que nos muestre los nom- 
bres de procedimientos o su definición 
no nos contestará nada. Por ejemplo: 


nombren) 


? BOTODO 
? IMTS 


¡O Diferentes pantallas 


En el caso de que tengamos muchos 
procedimientos, cuando la tortuga escri- 
ba sus nombres, al darle el comando 
IMTS, no cabrán todos en el espacio de 
pantalla del que ella dispone para dar- 


nos mensajes, que es mucho más peque- 
ño que el espacio reservado para hacer 
dibujos. 

Lo mismo nos puede ocurrir cuando 
queramos ver la definición de uno o va- 
rios procedimientos. 

Para que nos quepa en la pantalla 
toda la información que le podemos pe- 
dir a la tortuga, nos convendría que la 
parte de mensajes fuera más grande. 
Para ello, existe el comando 


TEXTO 


DIBUJOS 


MENSAJES 


que hace que en la pantalla no haya una 
parte para dibujos. 
Así: 


Ahora, al decirle IMTS, todos los nom- 
bres de procedimientos cabrán en la 
pantalla y podremos leerlos mejor. 

Cuando queramos volver a tener la 
pantalla dividida en dos partes, utilizare- 
mos el comando 


PANTALLAMIXTA 
o su abreviatura 
PM 


Si usamos este comando, el aspecto de 
la pantalla será el mismo de siempre 
pero se habrá borrado todo lo que hubié- 
semos escrito o dibujado anteriormente. 


Vamos a probarlo. Supongamos que 
hemos dibujado una circunferencia: 


_—_ 7 " A, 


Cuando la pantalla aparece dividida 
en dos partes (dibujos y texto) se dice 
que está en MODO GRAFICO y cuando 
solo se puede escribir en ella, pero la tor- 
tuga no pinta, se dice que está en MODO 
TEXTO. Resulta mejor utilizar este segundo 
modo cuando queramos que la tortuga 
ejecute órdenes que no lleven consigo el 
que realice dibujos. 


Ñ 
O Os proponemos 

1. Enseña a la tortuga a dibujar un mo- 
linillo: 


2. Puedes enseñar a la tortuga a dibu- 
jar diferentes estrellas. Recuerda que la 
formula para las estrellas es: 


REPITE num. puntas (AV longitud RT 
total/num.puntas) 


donde longitud lo decides tú según quie- 
ras estrellas grandes o pequeñas. 


5 LoGO 


Te damos algunos valores para el nú- 
mero de puntas y el total: 


[Núm. puntas | Total | 


720 


de Define un procedimiento que al 
ejecutarlo dé como resultado lo siguien- 
te: 


?CUBO 4 
BEA ME HA ENSEÑADO A HACER ESTE CUBO 
>m 


En lugar de BEA, puedes poner tu nom- 
bre. 


_4. A ver si eres capaz de que la tortu- 
ga aprenda a dibujar un cohete. 


5. Incluso puedes lograr que la tortu- 
ga dibuje un paisaje como éste: 


PASCAL 


¡O Funciones 


UANDO empezamos a 
hablar de procedi- 
mientos y funciones, 
dijimos que estas últi- 
mas son como los pri- 
meros, pero con la 
particularidad de 
que devuelven un va- 
lor que, para entendernos, se podría de- 
cir que pasa a ocupar el lugar del nom- 
bre de la función en el punto en que fue 
llamada. 

Este valor puede ser de cualquier tipo 
escalar, es decir, valores simples como 
INTEGER, CHAR, BOOLEAN o de tipos defi- 
nidos por enumeración o subrangos. 
También está admitido un tipo que toda- 
vía no hemos estudiado: el tipo REAL. En 
general, se dice que una función es de 
tal tipo cuando el dato que devuelve es 
de ese tipo. 

Ya conocemos un ejemplo de función 
predefinida de tipo Boolean: la función 
ODD. Para utilizarla no se necesita cono- 
cer nada sobre cómo ha sido programa- 
da. Además, se puede utilizar como pa- 
rámetro con ella tanto variables como 
expresiones o constantes. 


program SacaCubos; 
var 
Ene: integer; 


begin 
Cubor= X * X k X 
end; 


begin 
for Ene:z=1 to 10 do 


function Cubo (X: integer): integer; 
(£ Devuelve el cubo de X X) 


(£ Aquí comienza el programa principal %) 


writeln (?El cubo de *,Ene:3,” 


En esta misma línea, es una buena 
práctica escribir las funciones de mane- 
ra que se puedan utilizar de modo simi- 
lar a ODD, es decir, absteniéndose de uti- 
lizar en ellas variables globales. y no utili- 
zando el paso de parámetros por nom- 
bre, de manera que la única consecuen- 
cia de su utilización esté en el resultado 
devuelto. 


La única diferencia entre los procedi- 
mientos normales y las funciones a la 
hora de escribirlos está en la cabecera. 
En las funciones se utiliza la palabra re- 
servada FUNCTION en lugar de PROCEDU- 
RE; además, a continuación del nombre 
de la función (o a continuación de la de- 
finición de la lista de parámetros, caso 
de existir éstos) se debe indicar el tipo de 
resultado que devuelve. 

Por otra parte, cuando ya se haya ob- 
tenido el resultado, éste debe asignarse 
al hombre de la función como si de una 
variable se tratase. 

Como ejemplo, vamos a escribir un 
programa que presente en pantalla el 
cubo de los diez primeros números natu- 
rales. Para ello utilizaremos la función 
CUBO cuyo parámetro es INTEGER y que 
devuelve un resultado del mismo tipo: 


es ”,Cubo (Ene):6) 


PASCAL 


La función CUBO así escrita es directa- 
mente utilizable por otros programas sin 
más que copiar la parte del programa 
PASCAL que le corresponde. El resultado 
devuelto es como si estuviera en el sitio 


A:= Cubo (2) - 3; 
B:= Cubo (A-1); 
writeln (Cubo (Cubo (3) - 17)); 


Veamos otro ejemplo. Supongamos 
que la función ODD no existiera y que hu- 
biera que escribirla; el parámetro es de 
tipo INTEGER y se devuelve el valor de 
tipo Boolean TRUE o FALSE según que 
aquél sea o no impar. 

Para saber si un número es impar o no, 
una posible manera es comprobar si el 
resto de dividirlo por dos es uno o cero: 


function Odd (Nz integer): boolean; 
begin 
Ddd:= (N mod 2 = 1) 


Esta función se utilizaría exactamente 
igual que la original. Aunque un procedi- 
miento o función esté predefinido, como 
es el caso de ODD, podemos hacer nues- 


begin 


Mayuscula:= 
else 
Mayuscula:= C 


La operación ord(C)-ord('a » proporcio- 


na 0, 1, 2,... según que C sea 'a', 'b','c 
Sia este número le sumamos ord ('A”), pe 
tendremos el número de orden de 'A', 'B', 
'C”..., con lo que utilizando la función CHR 


function Mayuscula (C: char): char; 
(k Si C es minúscula, está entre *a” y *z” x*) 


if ("a <= C) and (C <= *z*) then 
chr (ord(C)-ord(*a”)+ord(*A”)) 


desde donde ha sido llamada, por lo que 
podría aparecer en cualquier lugar en 
que pudiera figurar un valor entero; por 
tanto, formas correctas de utilizarla se- 
rian: 


(- Guarda 5enA +») 
(- Guarda 4 al cubo en B +) 
( + Presenta 1000 en pantalla ») 


tra propia definición, que será la que 
realmente se emplee (ODD no es una pa- 
labra reservada, sino un identificador 
predefinido). 

Un último ejemplo. En el procedimiento 
LeeColor que escribimos anteriormente 
podría suceder que la letra tecleada fue- 
se minúscula, con lo que en las instruc- 
ciones IF habría que poner: 


If (letra='R") or (Letra="r") then C:= Rojo .. 


y análogamente en la instrucción dé 
asignación a la variable OK para permi- 
tir tanto mayúsculas como minúsculas. 
En lugar de ello, tras leer la tecla pul- 
sada la pasaremos a mayúscula si es que 
fue una minúscula. Para hacerlo, utiliza- 
remos la función MAYUSCULA cuyo pará- 
metro es un carácter y que devuelve el 
mismo carácter excepto en el caso en 
que aquél sea una letra minúscula, en 
que devuelve la mayúscula equivalente; 


se consigue la letra mayúscula equiva- 


lente. Esto, claro está, siempre que la le- 


tra sea una de las 26 del alfabeto inglés. 
Si además se necesitara la letra Ñ: 


function Mayuscula (Ci char)z char; 
begin ' 
if (Ca <= C) and (C <= *2”) then 


Mayusculaz= chr (ord(C)-ord(*a*)+ord(*A”)) 


se 
if C="%” then Mayuscula:= *RÑ* 
else Mayuscula:= C 


Esta función podría incorporarse a su 
vez como una función del procedimien- 
to LeeColor en el sitio que le correspon- 


procedure LeeColor (var Cz ColorPrimario_t);3 
(X Lee de teclado un color *x) 


var Letra: char; Ok: boolean; 


de, es decir, tras su zona de definición de 
datos y antes de sus instrucciones: 


. 
» 


begin 


repeat 
readln (Letra); 


until Ok; 


if Letra = "R” 


else C:= Azul 
end; 


Por casualidad, tanto la variable de 
LeeColor como el parámetro de Mayus- 
cula tienen el mismo nombre, C; podrían 
llamarse de distinta manera, pero da lo 
mismo. La variable de LeeColor es global 
para Mayuscula, pero como se empieza 
a buscar primero entre las locales pro- 
pias, la que se utiliza en la función es la 


correcta. No obstante, si con ello se evi- - 


tan confusiones, no hay que dudar en 
cambiar los nombres. 

Por otra parte, en PASCAL, como en la 
mayoría de lenguajes de programación, 
no suele estar permitido el empleo de le- 
tras acentuadas o eñes al escribir identi- 


function Mayuscula (Ci char): char; 


if ("a <= C) and (C <= *2”) then 
Mayuscula:= chr (ord(C)-ord(*a*)+ord(*A”)) 


if C="%” then Mayuscula:= *Ñ” 
else Mayuscula:= C 


(k£ Pedir letra del color: *) 
write (*Color? (R,V,A) ”)3 


(X pasamos la letra a mayúscula: 2%) 
Letra:= Mayuscula (Letra); 
Dk:z= (Letra="*R”) or (Letra="V”) or (Letra="A”); 
if not Ok then writeln ("Letra no válida.”) 


then C:= Rojo 


else if Letra = *V” then C:= Verde 


ficadores, de ahí la ausencia de acento 
en Mayuscula. 


IO Relaciones entre 
procedimientos 


La función Mayuscula inserta en LeeCo- 
lor es local de este procedimiento, por lo 
que sólo puede utilizarse desde las ins- 
trucciones de éste. Para el programa 
principal en que estuviera a su vez inser- 
to el procedimiento, la función es un de- 
talle de las interioridades de LeeColor y 
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como tal no tiene conocimiento de su 
existencia. 

Podríamos haber escrito Mayuscula 
fuera de LeeColor como una función in- 
dependiente para poderla usar desde el 
programa principal, pero entonces se 
plantea la siguiente cuestión: ¿va a po- 
der seguir siendo utilizada por el procedi- 
miento? 

.- La regla para saber cuándo puede ser 
utilizado un procedimiento o función es 
la siguiente: 


«Puede llamarse a un procediminto o fun- 
ción desde dentro de su inmediato po- 
seedor tomado en su conjunto y siempre 


begin 


else 


(k Les de teclado un color 
begin 
repaat 


readin (Letra); 


until Ok; 


if Letra = *R” 


else C:= Azul 


Evidentemente, de esta manera Lee- 
Color pierde su «autosuficiencia» (en el 
sentido de que para utilizarlo no basta 
con copiarlo, sino que además es nece- 
sario que se encuentre presente Mayus- 
cula en huestro programa), con la com- 
pensación de tener a Mayuscula dispo- 
nible para su uso por otras partes del pro- 
grama. 

Otra pregunta se plantea: si, además 
de esta función Mayuscula independien- 
te, lLeeColor siguiera teniendo su propia 


function Mayuscula (C3 char): char; 


if ("a <= C) and (C <= *”z”) then 
Mayuscula:= chr (ord(C)-ord(*a”)+ord(*A”)) 


if C="R”* then Mayuscula:= "R” 
else Mayuscula:= C 


var Letra: char; Ok: boolean; 


(*x Pedir letra del color: %) 
write (*Color? (R,V,A) ”);3 


(X pasamos la letra a mayúscula: *X) 
Letra:= Mayuscula (Letra); 
Ok:r= (Letra="R*) or (Letra="V”) or (Letra="A”); 
if not Ok then writeln (*Letra no válida.”) 


then C:= Rojo 
else if Letra = "V” then C:= Verde 


desde puntos que se encuentren por de- 
trás de su cabecera.» 


Por ello, si Mayuscula fuese una función 
independiente, podría ser utilizada des- 
de dentro de su inmediato poseedor, es 
decir, el programa principal. Lo de «en su 
conjunto» significa que sería utilizable 
desde el programa principal y desde 
cualquier procedimiento o función inclui- 
do en éste, siempre y cuando se encuen- 
tre por detrás de Mayuscula. Así, para 
que Mayuscula sea utilizable desde Lee- 
Color y cualquier otro punto del progra- 
ma, bastará con ponerla por separado y 
delante de aquél: 


x) 
procedure LeesColor (var C:z ColorPrimario_t); 


función local, ¿cuál de ellas utilizaría el 
procedimiento? 


Al igual que sucede con las variables, 
cuando el compilador encuentra un 
nombre de procedimiento o función, bus- 
ca primero entre los locales del punto en 
que se encuentra, por lo que LeeColor 
utilizaría su propia función y el resto del 
programa utilizaría la independiente. 


Veamos otro ejemplo. Supongamos un 
programa con la siguiente estructura: 


program Ejemplo; 


procedure Gordo; 


begin 


end; 


begin 


begin 


En este programa nos encontramos con 
lo siguiente: 

— El procediminto Gordo, como su in- 
mediato poseedor es el programa princi- 
pal, puede utilizarse desde cualquier 
parte, al estar su cabecera por delante 
de todas las zonas posibles de instruccio- 
nes. 

— El procedimiento Flaco se encuen- 
tra a un mismo nivel que Gordo, por lo 
que puede utilizarse desde cualquier 
punto del programa siempre que se en- 
cuentre por detrás de su cabecera, es 
decir, desde cualquier parte menos des- 
de el interior de Gordo. 

— El inmediato poseedor de Primero 
es Gordo, por lo que sólo puede utilizar- 
se desde éste en su conjunto, es decir, 
desde sus instrucciones y desde las ins- 
trucciones de Segundo. Sucede lo mismo 
con Segundo, con la diferencia de que 
este último no puede utilizarse desde las 
instrucciones de Primero, pues no están 
por detrás de su cabecera. 

— Análogamente, Activar sólo puede 
utilizarse desde el interior de Flaco. 


ok) 


var LocalDeGordo: 


procedure Primero; 


(%k Instrucciones de Primero Xx) 


RS $) 


procedure Segundo; 


(X Instrucciones de Segundo %) 


(k Instrucciones de Activar 


(k Instrucciones del programa *) 


procedure Activar; 


x) 


Deliberadamente se ha omitido la po- 
sibilidad, no reñida con la regla, de que, 
por ejemplo, Primero se utilice también 
desde sus propias instrucciones, o de 
que entre las instrucciones de Flaco se 
encuentre una llamada a Activar, entre 
cuyas instrucciones esté a su vez una lla- 
mada a Flaco, etc. Situaciones así, en 
que un procedimiento se llama a sí mis- 
mo de manera directa o indirecta, se 
dice que son «recursivas», y las estudia- 
remos en otra ocasión. 

La cabecera debe encontrarse por de- 
lante del punto de utilización porque una 
de las características del lenguaje PAS- 
CAL es que, sea cual sea el punto en el 
que aparece un identificador, éste debe 
haber sido definido previamente. Por 
ejemplo, el programa puede utilizar una 
variable que ha. sido definida previamen- 
te en la zona VAR utilizando un tipo que 
ha sido definido previamente en las zo- 
nas TYPE como sub-rango delimitado por 
dos constantes definidas previamente en 
la zona CONST. A la hora de escribir un 
programa esto no es una gran limitación, 
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pues no tiene demasiado sentido utilizar 
algo que todavía no se ha definido. 


En definitiva, las ventajas principales 
de ubicar unos procedimientos dentro 
de otros son dos: 


Por un lado, es posible hacer a estos úl- 
timos «autosuficientes», pues contienen 
todas las funciones, procedimientos y va- 
riables necesarios para su funcionamien- 
to, de manera que basta con coplarlos 
para utilizarlos en otros programas (aun- 
que, en el caso concreto de LeeColor, el 


tipo ColorPrimario + debe estar definido 
en el programa principal). 

Por otro, permite sustituir los procedi- 
mientos generales, disponibles para 
todo el programa (entre los que se inclu- 
yen los predefinidos), por los suyos pro- 
pios. 

Con los procedimientos y funciones de 
uso general, sin embargo, lo más cómo- 
do será escribirlos de manera indepen- 
diente para así poderlos utilizar desde 
cualquier punto, como es el caso de Ma- 
yuscula. 


LENGUAJE C 


Sentencia 
IF-ELSE 


A sentencia ¡fnos per- 
mite ejecutar una 
sentencia, si se cum- 
ple una condición, 
como la contraria, a 
través de else. 
if (expresión) 
sentencia A; 
else 
sentencia B; 


La sentencia switch va acompañada 
de una expresión entre paréntesis. La 
sentencia evalúa la expresión y compa- 
ra su valor con todos los casos (case). Si 
alguno de los casos es idéntico al valor 
de la expresión que acompaña al switch, 
se ejecutará la sentencia etiquetada por 
case 

La línea con default se utiliza en el su- 
puesto de que no se satisfaga ninguno 
de los case al compararse con la expre- 
sión que acompaña al switch. 

Veamos un ejemplo. 


switch (c) 

o 

tase * *: 
Case 'in”: 
blancos += 7; 
break; 


default 


otros += 1]: 


break; 
»] 


OTROS LENGUAJES 


(mu Sentencia WHILE 


Es una sentencia que se utiliza para la 
construcción de bucles. La repetición 
puede llevarse a cabo sobre una senten- 
cia o bloque de sentencias. 

while (expresión) 

sentencia; 

Se procede de la siguiente forma: se 
evalúa la expresión y si resulta ser cierta, 
se ejecuta la sentencia una y otra vez 
hasta que la expresión deje de ser cierta. 

Veamos un ejemplo de esta sentencia. 


cuenta 
while (cuenta < 


£ 


printf("estamos contandon”); 


cuenta = cuenta + |; 


y) 


¡E Sentencia FOR 


' 


La sentencia for se utiliza para que una 
sentencia o bloque de sentencias se eje- 
cute repetidamente en función de tres 
expresiones separadas por punto y 
coma. 

La sintaxis general de un bucle for es: 

for (expresión1; expresión2; expre- 
sión3) 
sentencia; 


pe OTROS LENGUAJES 


La primera expresión es la de inicializa- 
ción, la segunda de condición de prue- 
ba y la tercera se evalúa al final de cada 
bucle, 


1] Sentencia 
um DO-WHILE 


El bucle do-while comprueba la condi- 
ción después de cada pasada a través 
de la sentencia o bloque de sentencias. 
Cuando la condición deja de cumplirse, 
el bucle finaliza. 


La sintaxis utilizada es: 


do 
sentencia 
while (expresión); 


Tm Sentencias BREAK 
E y CONTINUE 


La sentencia “break” fuerza la salida 
de un bucle for, while o do de la misma 
forma que sucedía en switch. 

La sentencia continue hace que el res- 
to de la iteración se ignore, obligando a 
comenzar una nueva iteración, 


'O Sentencia GOTO 


La sintaxis de la sentencia es: 
goto etiqueta 


La etiqueta se rige por las mismas nor- 
mas que las variables. El uso más normal 
de la sentencia goto consiste en salir de 
un proceso en una estuctura que este 
fuertemente anidada, ya que en este 
caso la utilización de la sentencia break 
sólo nos llevaría a abandonar la estruc- 
tura más interna. 


DI 


WWA 


y EDICIONES y SIGLO y CULTURAL vy 


A -— 


y EDICIONES y SIGLO y CULTURAL v 


